home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00796_SU-su bt lec.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  733 b   |  32 lines
  1. on MouseClick
  2.   global gNumSpr, g1erSprLoc, gBoutons, gSurvolPrec, gScopeSu, gPosVideo, gPosDebP, gPosDebS, gPosDebE, gPosFin
  3.   curseur(6)
  4.   if word 1 of the name of cast the castNum of sprite gNumSpr = "BTPBOU" then
  5.     sound close 1
  6.     gScopeSu(SetCadence, 1)
  7.     gBoutons(habille, gNumSpr, "BTPPOS 1")
  8.   else
  9.     gScopeSu(SetCadence, 0)
  10.     gBoutons(habille, gNumSpr, "BTPBOU 1")
  11.   end if
  12.   set gSurvolPrec to -1
  13. end
  14.  
  15. on mouseDown
  16.   global gNumSpr, g1erSprLoc, gBoutons
  17.   set gNumSpr to g1erSprLoc + 11
  18.   gBoutons(appuie, gNumSpr)
  19. end
  20.  
  21. on mouseUp
  22.   global gNumSpr, g1erSprLoc, gSurvolPrec
  23.   curseur(6)
  24.   set monNumSpr to g1erSprLoc + 11
  25.   if monNumSpr = gNumSpr then
  26.     MouseClick()
  27.   else
  28.     pass()
  29.   end if
  30.   curseur(-1)
  31. end
  32.